home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 5 / 005.d81 / nutrition inform (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  6KB  |  133 lines
  1. 5 poke783,peek(783)and254
  2. 10 rem *** nutrition information
  3. 20 rem ***
  4. 30 rem *** fact or fallacy?
  5. 40 rem ***
  6. 50 rem *** by julie ekblaw, r.d.
  7. 60 rem ***
  8. 70 rem *** translated for the 64 by
  9. 80 rem ***
  10. 82 rem *** donna k. woody
  11. 83 rem ***
  12. 85 rem *** title page
  13. 90 printchr$(147):poke53280,1:poke53281,7:printchr$(144):poke53272,23
  14. 95 printchr$(8)
  15. 100 poke781,4:poke782,10:sys65520
  16. 110 print"[206][213][212][210][201][212][201][207][206] [201][206][198][207][210][205][193][212][201][207][206]"
  17. 120 poke781,8:poke782,12:sys65520
  18. 130 print"[198][193][195][212] [207][210] [198][193][204][204][193][195][217]?"
  19. 140 poke781,13:poke782,10:sys65520
  20. 150 print"by [202]ulie [197]kblaw, [210].[196]."
  21. 151 poke781,18:poke782,8:sys65520
  22. 152 print"[212]ranslated for the 64 by"
  23. 153 poke781,20:poke782,13:sys65520
  24. 154 print"[196]onna [203]. [215]oody"
  25. 160 gosub10050
  26. 170 v=6:t$="[195]onfused by all the hype on health and":gosub10000
  27. 180 v=8:t$="nutrition products?":gosub10000
  28. 190 gosub10050
  29. 200 v=6:t$="[194]efore you spend your hard-earned $ on a":gosub10000
  30. 210 v=8:t$="product that could be useless and even":gosub10000
  31. 220 poke781,11:poke782,16:sys65520:print"[196][193][206][199][197][210][207][213][211]"
  32. 260 v=14:t$="consider the following:":gosub10000
  33. 270 gosub10050
  34. 280 v=6:t$="[201]s the information based only on":gosub10000
  35. 290 v=8:t$="personal testimonials?":gosub10000
  36. 300 v=12:t$="[197]xample:  '[201] weighed 320 lbs.  [201] tried":gosub10000
  37. 310 v=14:t$="any and every diet, but nothing worked":gosub10000
  38. 320 v=16:t$="until [201] used product [216].  [201] lost 180":gosub10000
  39. 330 v=18:t$="lbs. and finally found happiness.'":gosub10000
  40. 340 gosub10050
  41. 350 v=6:t$="[196]oes the ad claim that a nutrient,":gosub10000
  42. 360 v=8:t$="food, or product can cause or cure":gosub10000
  43. 370 v=10:t$="a disease or condition?":gosub10000
  44. 380 v=14:t$="[197]xample:  '[193] low fat, low sodium diet":gosub10000
  45. 390 v=16:t$="prevents cancer and kidney disease.'":gosub10000
  46. 400 gosub10050
  47. 410 v=6:t$="[201]s the food or product recommended as":gosub10000
  48. 420 v=8:t$="being super or magical?":gosub10000
  49. 430 v=12:t$="[197]xample: '[197]at only natural foods.'":gosub10000
  50. 440 v=16:t$="'[197]ating oranges will prevent the":gosub10000
  51. 450 v=18:t$="common cold.'":gosub10000
  52. 460 gosub10050
  53. 470 v=6:t$="[196]oes the information recommend avoiding":gosub10000
  54. 480 v=8:t$="a food or food group?":gosub10000
  55. 490 v=12:t$="[197]xample:  '[196]o not eat bread while trying":gosub10000
  56. 500 v=14:t$="to lose weight.'":gosub10000
  57. 510 gosub10050
  58. 520 v=6:t$="[201]s there a promise of a quick and":gosub10000
  59. 530 v=8:t$="astonishing cure?":gosub10000
  60. 540 v=12:t$="[197]xample:  '[197]at all you want, but still":gosub10000
  61. 550 v=14:t$="shed those pounds, without exercising.'":gosub10000
  62. 560 gosub10050
  63. 570 v=6:t$="[196]oes the promotion use threats of":gosub10000
  64. 580 v=8:t$="illness or disease?":gosub10000
  65. 590 v=12:t$="[197]xample:  '[215]hat you are presently eating":gosub10000
  66. 600 v=14:t$="is likely to increase your risk of":gosub10000
  67. 610 v=16:t$="cancer.'":gosub10000
  68. 620 gosub10050
  69. 630 v=6:t$="[201]s there a suggestion to eat a bizarre,":gosub10000
  70. 640 v=8:t$="unbalanced diet?":gosub10000
  71. 650 v=12:t$="[197]xample:  '[197]at all the celery you want":gosub10000
  72. 660 v=14:t$="for three days.'":gosub10000:gosub10050
  73. 670 v=6:t$="[201]s there excessive criticism of the":gosub10000
  74. 680 v=8:t$="the food supply and health":gosub10000
  75. 690 v=10:t$="professionals?":gosub10000
  76. 700 v=14:t$="[197]xample:  '[198]oods lose most of their":gosub10000
  77. 710 v=16:t$="nutrients during shipping and":gosub10000
  78. 720 v=18:t$="therefore are nutritionally inadequate.'":gosub10000
  79. 730 gosub10050
  80. 740 v=8:t$="'[200]ealth professionals prescribe drugs":gosub10000
  81. 750 v=10:t$="and foods that interfere with the":gosub10000
  82. 760 v=12:t$="body's own healing process.  [193]void":gosub10000
  83. 770 v=14:t$="treatment by health professionals":gosub10000
  84. 780 v=16:t$="no matter what.'":gosub10000:gosub10050
  85. 790 v=6:t$="[196]oes the writer present one-sided":gosub10000
  86. 800 v=8:t$="biased information and draw conclusions":gosub10000
  87. 810 v=10:t$="for you?":gosub10000
  88. 820 v=14:t$="[197]xample:  '[212]here is only one way to":gosub10000
  89. 830 v=16:t$="stay healthy.'":gosub10000:gosub10050
  90. 840 v=6:t$="[193]re there general, vague statements":gosub10000
  91. 850 v=8:t$="that could be misleading?":gosub10000
  92. 860 v=12:t$="[197]xample:  '[193]ll food additives are bad.'":gosub10000:gosub10050
  93. 870 v=6:t$="[193]re there general references made to":gosub10000
  94. 880 v=8:t$="health professionals?":gosub10000
  95. 890 v=12:t$="[197]xample:  '[216] is known by physicians and":gosub10000
  96. 900 v=14:t$="nutritionists in the research":gosub10000
  97. 910 v=16:t$="community.'":gosub10000:gosub10050
  98. 920 v=6:t$="[196]o you see a profit motive?":gosub10000
  99. 930 v=10:t$="[197]xample:  '[211]end $39.95 for your first":gosub10000
  100. 940 v=12:t$="month's supply of our miraculous":gosub10000
  101. 950 v=14:t$="product.'":gosub10000:gosub10050
  102. 960 v=6:t$="[201]f you answered yes to even one of":gosub10000
  103. 970 v=8:t$="these questions, think again before you":gosub10000
  104. 980 v=10:t$="buy or participate.":gosub10000:gosub10050
  105. 990 v=6:t$="[210]eliable health and nutrition":gosub10000
  106. 1000 v=8:t$="information is based on scientific":gosub10000
  107. 1010 v=10:t$="research which has been done to":gosub10000
  108. 1020 v=12:t$="specifically prove, true or false, the":gosub10000
  109. 1030 v=14:t$="theory in question.  [201]t should present":gosub10000
  110. 1040 v=16:t$="both the pros and cons to be objective":gosub10000
  111. 1050 v=18:t$="and unbiased.":gosub10000:gosub10050
  112. 1060 v=6:t$="[210]eliable information has a sensible":gosub10000
  113. 1070 v=8:t$="message that allows the reader to":gosub10000
  114. 1080 v=10:t$="formulate conclusions based on the":gosub10000
  115. 1090 v=12:t$="facts.":gosub10000:gosub10050
  116. 1100 v=6:t$="[201]f in doubt, the registered dietitians":gosub10000
  117. 1110 v=8:t$="([210].[196].'s) in your community would be":gosub10000
  118. 1120 v=10:t$="happy to assist you.  [212]hey can be":gosub10000
  119. 1130 v=12:t$="contacted at hospitals, nutrition":gosub10000
  120. 1140 v=14:t$="depts. at colleges and universities,":gosub10000
  121. 1150 v=16:t$="health depts., cooperative extensions,":gosub10000
  122. 1160 v=18:t$="and [196]ial-[193]-[196]ietitian, if available.":gosub10000:gosub10050
  123. 9990 goto 63000
  124. 10000 rem *** centering subroutine
  125. 10010 h=(40-len(t$))/2
  126. 10020 poke781,v:poke782,h:sys65520:printt$
  127. 10030 return
  128. 10040 rem *** press return subroutine
  129. 10050 poke781,23:poke782,8:sys65520:print"[208]ress <[210][197][212][213][210][206]> to continue.";
  130. 10060 poke198,0:wait198,1:geta$:printchr$(147):return
  131. 63000 print"[147]load"chr$(34)"payload"chr$(34)",8":print"run"
  132. 63010 poke631,13:poke632,13:poke198,2:end
  133.